home *** CD-ROM | disk | FTP | other *** search
/ The Disc - MacWorld 1995 / PowerComputing (The Disc)(MacWorld 1995).ISO / mac / CDFACTOR / HCfactor / HumanCode / HumanCode.DXR / 00085_PREVIEW.ls < prev    next >
Encoding:
Text File  |  1995-07-14  |  849 b   |  23 lines
  1. global gmasterfolderpath, gFileName, grectlist, gprevsrcrect, objPreview, glessonnumber, objCapturePict
  2.  
  3. on setpreview
  4.   blitPictInitFile(objPreview, gmasterfolderpath & getProp(gFileName, #PREVIEW))
  5.   set thestep to integer(item 3 of getAt(grectlist, 3)) - integer(item 1 of getAt(grectlist, 3))
  6.   set TheHeight to integer(item 4 of getAt(grectlist, 3)) - integer(item 2 of getAt(grectlist, 3))
  7.   set gprevsrcrect to []
  8.   repeat with n = 1 to glessonnumber
  9.     set srcrect to thestep * (n - 1) & ",0," & thestep * n & "," & TheHeight
  10.     add(gprevsrcrect, srcrect)
  11.   end repeat
  12.   blitPictInitScreen(objCapturePict, getAt(grectlist, 3))
  13. end
  14.  
  15. on showpreview lesson
  16.   blitPictDrawScreen(objPreview, getAt(gprevsrcrect, lesson), getAt(grectlist, 3), "copy", 0, 0)
  17. end
  18.  
  19. on killpreview
  20.   blitPictDispose(objPreview)
  21.   blitPictDispose(objCapturePict)
  22. end
  23.